﻿Public Class masdrgatcl
    Dim connect As CONDB = CONDB.NewConnection()

    'status ทุก table ใช้ร่วมกัน
    Private STATUS = Nothing

    Property STATUS_ As Boolean
        Get
            Return STATUS
        End Get
        Set(value As Boolean)
            If value = True Then
                STATUS = 1
            Else
                STATUS = 0
            End If
        End Set
    End Property

    'atcl1

    Private ATCL1CODE = Nothing
    Private AL1NAME = Nothing
    Private selectMasdrgatcl1 = "SELECT `atcl1code` as 'รหัส (ระดับที่ 1)', `al1name` as 'ประเภทการออกฤทธิ์', `status` as 'สถานะการเปิดใช้งาน' FROM masdrgatcl1"

    Property ATCL1CODE_ As String
        Get
            Return ATCL1CODE
        End Get
        Set(value As String)
            ATCL1CODE = value
        End Set
    End Property

    Property AL1NAME_ As String
        Get
            Return AL1NAME
        End Get
        Set(value As String)
            AL1NAME = value
        End Set
    End Property

    Property selectMasdrgatcl1_ As String
        Get
            Return selectMasdrgatcl1
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub atc1combobox(ByVal comboboxName As ComboBox)
        Dim atc1Data As DataTable
        atc1Data = connect.GetTable("SELECT atcl1code, al1name FROM masdrgatcl1 WHERE status = '1'")
        Try
            With comboboxName
                .DataSource = atc1Data
                .DisplayMember = "al1name"
                .ValueMember = "atcl1code"
                '.BindingContext = BindingContext
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Public Sub insertMasdrgatcl1Data()
        If TypeOf AL1NAME Is String Then
            If connect.GetTable("SELECT atcl1code FROM masdrgatcl1 WHERE al1name = '" & AL1NAME & "'").Rows.Count > 0 Then
                MsgBox("มีข้อมูลการออกฤทธิ์นี้อยู่ในระบบแล้ว")
            Else
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()
                    'Dim dischargeID As Integer

                    connect.ExecuteNonQuery("INSERT INTO masdrgatcl1 (atcl1code, al1name, status) VALUES ('" & ATCL1CODE & "', '" & AL1NAME & "', '" & STATUS & "')")
                    'dischargeID = connect.ExecuteScalar("INSERT INTO masdischarge (DISCHARGE, STATUS) VALUES ('" & masdischargeDescription & "', '" & masdischargeStatus & "'); SELECT LAST_INSERT_ID();")
                    'connectlocal.ExecuteNonQuery("INSERT INTO MASDISCHARGE (DISCHGID, DISCHARGE, STATUS) VALUES ('" & dischargeID & "', '" & masdischargeDescription & "', '" & masdischargeStatus & "')")
                    MsgBox("ท่านได้ทำการเพิ่มข้อมูลการออกฤทธิ์ยาเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox(vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            End If
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    Public Sub editMasdrgatcl1Data()
        If TypeOf AL1NAME Is String Then
            Try
                connect = CONDB.NewConnection()
                'connectlocal = conlocal.NewConnection()

                connect.ExecuteNonQuery("UPDATE masdrgatcl1 SET al1name = '" & AL1NAME & "', status = '" & STATUS & "' WHERE atcl1code = '" & ATCL1CODE & "'")
                'connectlocal.ExecuteNonQuery("UPDATE MASDISCHARGE SET DISCHARGE = '" & masdischargeDescription & "', STATUS = '" & masdischargeStatus & "' WHERE DISCHGID = '" & masdischargeID & "'")
                MsgBox("ท่านได้ทำการแก้ไขข้อมูลการออกฤทธิ์ยาเรียบร้อยแล้ว")
            Catch ex As Exception
                MsgBox(vbCrLf & ex.Message)
            End Try
            connect.Dispose()
            'connectlocal.Dispose()
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    'atcl2
    Private atcl1InAtcl2 = Nothing
    Private ATCL2CODE = Nothing
    Private AL2NAME = Nothing
    Private selectMasdrgatcl2 = "SELECT a.`al1name`, b.`atcl2code` as 'รหัส (ระดับที่ 2)', b.`al2name` as 'ประเภทการออกฤทธิ์', b.`status` as 'สถานะการเปิดใช้งาน', a.`atcl1code` as 'รหัส (ระดับที่ 1)' FROM masdrgatcl2 b JOIN masdrgatcl1 a ON b.atcl1code = a.atcl1code "

    Property ATCL2CODE_ As String
        Get
            Return ATCL2CODE
        End Get
        Set(value As String)
            ATCL2CODE = value
        End Set
    End Property

    Property atcl1InAtcl2_ As String
        Get
            Return atcl1InAtcl2
        End Get
        Set(value As String)
            atcl1InAtcl2 = value
        End Set
    End Property

    Property AL2NAME_ As String
        Get
            Return AL2NAME
        End Get
        Set(value As String)
            AL2NAME = value
        End Set
    End Property

    Property selectMasdrgatcl2_ As String
        Get
            Return selectMasdrgatcl2
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub atc2combobox(atc1 As String, ByVal comboboxName As ComboBox)
        Dim atc2Data As DataTable
        atc2Data = connect.GetTable("SELECT ATCL2CODE, AL2NAME FROM masdrgatcl2 WHERE ATCL1CODE = '" & atc1 & "' AND STATUS = '1'")
        Try
            With comboboxName
                .DataSource = atc2Data
                .DisplayMember = "AL2NAME"
                .ValueMember = "ATCL2CODE"
                '.BindingContext = BindingContext
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Public Sub insertMasdrgatcl2Data()
        If TypeOf AL2NAME Is String Then
            If connect.GetTable("SELECT ATCL2CODE FROM masdrgatcl2 WHERE AL2NAME = '" & AL2NAME & "'").Rows.Count > 0 Then
                MsgBox("มีข้อมูลการออกฤทธิ์นี้อยู่ในระบบแล้ว")
            Else
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()
                    'Dim dischargeID As Integer

                    connect.ExecuteNonQuery("INSERT INTO masdrgatcl2 (ATCL2CODE, ATCL1CODE, AL2NAME, STATUS) VALUES ('" & ATCL2CODE & "', '" & atcl1InAtcl2 & "', '" & AL2NAME & "', '" & STATUS & "')")
                    'dischargeID = connect.ExecuteScalar("INSERT INTO masdischarge (DISCHARGE, STATUS) VALUES ('" & masdischargeDescription & "', '" & masdischargeStatus & "'); SELECT LAST_INSERT_ID();")
                    'connectlocal.ExecuteNonQuery("INSERT INTO MASDISCHARGE (DISCHGID, DISCHARGE, STATUS) VALUES ('" & dischargeID & "', '" & masdischargeDescription & "', '" & masdischargeStatus & "')")
                    MsgBox("ท่านได้ทำการเพิ่มข้อมูลการออกฤทธิ์ยาระดับที่ 2 เรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox(vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            End If
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    Public Sub editMasdrgatcl2Data()
        If TypeOf AL2NAME Is String Then
            Try
                connect = CONDB.NewConnection()
                'connectlocal = conlocal.NewConnection()

                connect.ExecuteNonQuery("UPDATE masdrgatcl2 SET ATCL1CODE = '" & atcl1InAtcl2 & "', AL2NAME = '" & AL2NAME & "', STATUS = '" & STATUS & "' WHERE ATCL2CODE = '" & ATCL2CODE & "'")
                'connectlocal.ExecuteNonQuery("UPDATE MASDISCHARGE SET DISCHARGE = '" & masdischargeDescription & "', STATUS = '" & masdischargeStatus & "' WHERE DISCHGID = '" & masdischargeID & "'")
                MsgBox("ท่านได้ทำการแก้ไขข้อมูลการออกฤทธิ์ยาเรียบร้อยแล้ว")
            Catch ex As Exception
                MsgBox(vbCrLf & ex.Message)
            End Try
            connect.Dispose()
            'connectlocal.Dispose()
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    'atcl3
    Private atcl2InAtcl3 = Nothing
    Private ATCL3CODE = Nothing
    Private AL3NAME = Nothing
    Private selectMasdrgatcl3 = "SELECT a.AL1NAME, b.AL2NAME, c.ATCL3CODE as 'รหัส (ระดับที่ 3)', c.AL3NAME as 'ประเภทการออกฤทธิ์', c.`STATUS` as 'สถานะการเปิดใช้งาน', a.ATCL1CODE as 'รหัส (ระดับที่ 1)', b.ATCL2CODE as 'รหัส (ระดับที่ 2)' FROM masdrgatcl3 c JOIN masdrgatcl2 b ON b.ATCL2CODE = c.ATCL2CODE JOIN masdrgatcl1 a ON a.ATCL1CODE = b.ATCL1CODE"

    Property atcl2InAtcl3_ As String
        Get
            Return atcl2InAtcl3
        End Get
        Set(value As String)
            atcl2InAtcl3 = value
        End Set
    End Property

    Property ATCL3CODE_ As String
        Get
            Return ATCL3CODE
        End Get
        Set(value As String)
            ATCL3CODE = value
        End Set
    End Property

    Property AL3NAME_ As String
        Get
            Return AL3NAME
        End Get
        Set(value As String)
            AL3NAME = value
        End Set
    End Property

    Property selectMasdrgatcl3_ As String
        Get
            Return selectMasdrgatcl3
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub atc3combobox(atc2 As String, ByVal comboboxName As ComboBox)
        Dim atc3Data As DataTable
        atc3Data = connect.GetTable("SELECT ATCL3CODE, AL3NAME FROM masdrgatcl3 WHERE ATCL2CODE = '" & atc2 & "' AND STATUS = '1'")
        Try
            With comboboxName
                .DataSource = atc3Data
                .DisplayMember = "AL3NAME"
                .ValueMember = "ATCL3CODE"
                '.BindingContext = BindingContext
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Public Sub insertMasdrgatcl3Data()
        If TypeOf AL3NAME Is String Then
            If connect.GetTable("SELECT ATCL3CODE FROM masdrgatcl3 WHERE AL3NAME = '" & AL3NAME & "'").Rows.Count > 0 Then
                MsgBox("มีข้อมูลการออกฤทธิ์นี้อยู่ในระบบแล้ว")
            Else
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()
                    'Dim dischargeID As Integer

                    connect.ExecuteNonQuery("INSERT INTO masdrgatcl3 (ATCL3CODE, ATCL2CODE, AL3NAME, STATUS) VALUES ('" & ATCL3CODE & "', '" & atcl2InAtcl3 & "', '" & AL3NAME & "', '" & STATUS & "')")
                    'dischargeID = connect.ExecuteScalar("INSERT INTO masdischarge (DISCHARGE, STATUS) VALUES ('" & masdischargeDescription & "', '" & masdischargeStatus & "'); SELECT LAST_INSERT_ID();")
                    'connectlocal.ExecuteNonQuery("INSERT INTO MASDISCHARGE (DISCHGID, DISCHARGE, STATUS) VALUES ('" & dischargeID & "', '" & masdischargeDescription & "', '" & masdischargeStatus & "')")
                    MsgBox("ท่านได้ทำการเพิ่มข้อมูลการออกฤทธิ์ยาระดับที่ 3 เรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox(vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            End If
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    Public Sub editMasdrgatcl3Data()
        If TypeOf AL3NAME Is String Then
            Try
                connect = CONDB.NewConnection()
                'connectlocal = conlocal.NewConnection()

                connect.ExecuteNonQuery("UPDATE masdrgatcl3 SET ATCL2CODE = '" & atcl2InAtcl3 & "', AL3NAME = '" & AL3NAME & "', STATUS = '" & STATUS & "' WHERE ATCL3CODE = '" & ATCL3CODE & "'")
                'connectlocal.ExecuteNonQuery("UPDATE MASDISCHARGE SET DISCHARGE = '" & masdischargeDescription & "', STATUS = '" & masdischargeStatus & "' WHERE DISCHGID = '" & masdischargeID & "'")
                MsgBox("ท่านได้ทำการแก้ไขข้อมูลการออกฤทธิ์ยาเรียบร้อยแล้ว")
            Catch ex As Exception
                MsgBox(vbCrLf & ex.Message)
            End Try
            connect.Dispose()
            'connectlocal.Dispose()
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub


    'atcl4
    Private atcl3InAtcl4 = Nothing
    Private ATCL4CODE = Nothing
    Private AL4NAME = Nothing
    Private selectMasdrgatcl4 = "SELECT a.AL1NAME, b.AL2NAME, c.AL3NAME, d.ATCL4CODE as 'รหัส (ระดับที่ 4)', d.AL4NAME as 'ประเภทการออกฤทธิ์', d.`STATUS` as 'สถานะการเปิดใช้งาน', a.ATCL1CODE as 'รหัส (ระดับที่ 1)' , b.ATCL2CODE as 'รหัส (ระดับที่ 2)', c.ATCL3CODE as 'รหัส (ระดับที่ 3)' FROM masdrgatcl4 d JOIN masdrgatcl3 c ON d.ATCL3CODE = c.ATCL3CODE JOIN masdrgatcl2 b ON c.ATCL2CODE = b.ATCL2CODE JOIN masdrgatcl1 a ON b.ATCL1CODE = a.ATCL1CODE"

    Property atcl3InAtcl4_ As String
        Get
            Return atcl3InAtcl4
        End Get
        Set(value As String)
            atcl3InAtcl4 = value
        End Set
    End Property

    Property ATCL4CODE_ As String
        Get
            Return ATCL4CODE
        End Get
        Set(value As String)
            ATCL4CODE = value
        End Set
    End Property

    Property AL4NAME_ As String
        Get
            Return AL4NAME
        End Get
        Set(value As String)
            AL4NAME = value
        End Set
    End Property

    Property selectMasdrgatcl4_ As String
        Get
            Return selectMasdrgatcl4
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub atc4combobox(atc3 As String, ByVal comboboxName As ComboBox)
        Dim atc4Data As DataTable
        atc4Data = connect.GetTable("SELECT ATCL4CODE, AL4NAME FROM masdrgatcl4 WHERE ATCL3CODE = '" & atc3 & "' AND STATUS = '1'")
        Try
            With comboboxName
                .DataSource = atc4Data
                .DisplayMember = "AL4NAME"
                .ValueMember = "ATCL4CODE"
                '.BindingContext = BindingContext
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Public Sub insertMasdrgatcl4Data()
        If TypeOf AL4NAME Is String Then
            If connect.GetTable("SELECT ATCL4CODE FROM masdrgatcl4 WHERE AL4NAME = '" & AL4NAME & "'").Rows.Count > 0 Then
                MsgBox("มีข้อมูลการออกฤทธิ์นี้อยู่ในระบบแล้ว")
            Else
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()
                    'Dim dischargeID As Integer

                    connect.ExecuteNonQuery("INSERT INTO masdrgatcl4 (ATCL4CODE, ATCL3CODE, AL4NAME, STATUS) VALUES ('" & ATCL4CODE & "', '" & atcl3InAtcl4 & "', '" & AL4NAME & "', '" & STATUS & "')")
                    'dischargeID = connect.ExecuteScalar("INSERT INTO masdischarge (DISCHARGE, STATUS) VALUES ('" & masdischargeDescription & "', '" & masdischargeStatus & "'); SELECT LAST_INSERT_ID();")
                    'connectlocal.ExecuteNonQuery("INSERT INTO MASDISCHARGE (DISCHGID, DISCHARGE, STATUS) VALUES ('" & dischargeID & "', '" & masdischargeDescription & "', '" & masdischargeStatus & "')")
                    MsgBox("ท่านได้ทำการเพิ่มข้อมูลการออกฤทธิ์ยาระดับที่ 4 เรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox(vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            End If
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    Public Sub editMasdrgatcl4Data()
        If TypeOf AL4NAME Is String Then
            Try
                connect = CONDB.NewConnection()
                'connectlocal = conlocal.NewConnection()

                connect.ExecuteNonQuery("UPDATE masdrgatcl4 SET ATCL3CODE = '" & atcl3InAtcl4 & "', AL4NAME = '" & AL4NAME & "', STATUS = '" & STATUS & "' WHERE ATCL4CODE = '" & ATCL4CODE & "'")
                'connectlocal.ExecuteNonQuery("UPDATE MASDISCHARGE SET DISCHARGE = '" & masdischargeDescription & "', STATUS = '" & masdischargeStatus & "' WHERE DISCHGID = '" & masdischargeID & "'")
                MsgBox("ท่านได้ทำการแก้ไขข้อมูลการออกฤทธิ์ยาเรียบร้อยแล้ว")
            Catch ex As Exception
                MsgBox(vbCrLf & ex.Message)
            End Try
            connect.Dispose()
            'connectlocal.Dispose()
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    'atcl5
    Private atcl4InAtcl5 = Nothing
    Private ATCL5CODE = Nothing
    Private AL5NAME = Nothing
    Private selectMasdrgatcl5 = "SELECT a.AL1NAME, b.AL2NAME, c.AL3NAME, d.AL4NAME, e.ATCL5CODE as 'รหัส (ระดับที่ 5)', e.AL5NAME as 'ประเภทการออกฤทธิ์', e.`STATUS` as 'สถานะการเปิดใช้งาน', a.ATCL1CODE as 'รหัส (ระดับที่ 1)', b.ATCL2CODE as 'รหัส (ระดับที่ 2)', c.ATCL3CODE as 'รหัส (ระดับที่ 3)', d.ATCL4CODE as 'รหัส (ระดับที่ 4)' FROM masdrgatcl5 e JOIN masdrgatcl4 d ON e.ATCL4CODE = d.ATCL4CODE JOIN masdrgatcl3 c ON d.ATCL3CODE = c.ATCL3CODE JOIN masdrgatcl2 b ON c.ATCL2CODE = b.ATCL2CODE JOIN masdrgatcl1 a ON b.ATCL1CODE = a.ATCL1CODE"

    Property atcl4InAtcl5_ As String
        Get
            Return atcl4InAtcl5
        End Get
        Set(value As String)
            atcl4InAtcl5 = value
        End Set
    End Property

    Property ATCL5CODE_ As String
        Get
            Return ATCL5CODE
        End Get
        Set(value As String)
            ATCL5CODE = value
        End Set
    End Property

    Property AL5NAME_ As String
        Get
            Return AL5NAME
        End Get
        Set(value As String)
            AL5NAME = value
        End Set
    End Property

    Property selectMasdrgatcl5_ As String
        Get
            Return selectMasdrgatcl5
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub atc5combobox(atc4 As String, ByVal comboboxName As ComboBox)
        Dim atc5Data As DataTable
        atc5Data = connect.GetTable("SELECT ATCL5CODE, AL5NAME FROM masdrgatcl5 WHERE ATCL4CODE = '" & atc4 & "' AND STATUS = '1'")
        Try
            With comboboxName
                .DataSource = atc5Data
                .DisplayMember = "AL5NAME"
                .ValueMember = "ATCL5CODE"
                '.BindingContext = BindingContext
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Public Sub insertMasdrgatcl5Data()
        If TypeOf AL5NAME Is String Then
            If connect.GetTable("SELECT ATCL5CODE FROM masdrgatcl5 WHERE AL5NAME = '" & AL5NAME & "'").Rows.Count > 0 Then
                MsgBox("มีข้อมูลการออกฤทธิ์นี้อยู่ในระบบแล้ว")
            Else
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()
                    'Dim dischargeID As Integer

                    connect.ExecuteNonQuery("INSERT INTO masdrgatcl5 (ATCL5CODE, ATCL4CODE, AL5NAME, STATUS) VALUES ('" & ATCL5CODE & "', '" & atcl4InAtcl5 & "', '" & AL5NAME & "', '" & STATUS & "')")
                    'dischargeID = connect.ExecuteScalar("INSERT INTO masdischarge (DISCHARGE, STATUS) VALUES ('" & masdischargeDescription & "', '" & masdischargeStatus & "'); SELECT LAST_INSERT_ID();")
                    'connectlocal.ExecuteNonQuery("INSERT INTO MASDISCHARGE (DISCHGID, DISCHARGE, STATUS) VALUES ('" & dischargeID & "', '" & masdischargeDescription & "', '" & masdischargeStatus & "')")
                    MsgBox("ท่านได้ทำการเพิ่มข้อมูลการออกฤทธิ์ยาระดับที่ 5 เรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox(vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            End If
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub

    Public Sub editMasdrgatcl5Data()
        If TypeOf AL5NAME Is String Then
            Try
                connect = CONDB.NewConnection()
                'connectlocal = conlocal.NewConnection()

                connect.ExecuteNonQuery("UPDATE masdrgatcl5 SET ATCL4CODE = '" & atcl4InAtcl5 & "', AL5NAME = '" & AL5NAME & "', STATUS = '" & STATUS & "' WHERE ATCL5CODE = '" & ATCL5CODE & "'")
                'connectlocal.ExecuteNonQuery("UPDATE MASDISCHARGE SET DISCHARGE = '" & masdischargeDescription & "', STATUS = '" & masdischargeStatus & "' WHERE DISCHGID = '" & masdischargeID & "'")
                MsgBox("ท่านได้ทำการแก้ไขข้อมูลการออกฤทธิ์ยาเรียบร้อยแล้ว")
            Catch ex As Exception
                MsgBox(vbCrLf & ex.Message)
            End Try
            connect.Dispose()
            'connectlocal.Dispose()
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
        End If
    End Sub
End Class